home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / sovrapposta1.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  72 lines
  1. /* Tendina tra due immagini utilizzando CROP in 60 frames */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9. TmpIma2 = 'T:immagine2'
  10. CropFile = 'T:Provvisorio'
  11. NUMEROFRAME = 0
  12.  
  13. GETFILES '"Seleziona la PRIMA immagine"'
  14.  IF RC ~= 0 THEN EXIT
  15.   PRIMA = ADPRO_RESULT
  16.    IF PRIMA = "" THEN EXIT
  17.     LOADER "UNIVERSAL" PRIMA
  18. SAVER "IFF" TmpIma "RAW"
  19.     XSIZE
  20.      BASE = ADPRO_RESULT
  21.   YSIZE
  22.    ALTZ = ADPRO_RESULT
  23.      CROPBASE1 = ((BASE / 60) + 0.5)
  24.      CROPBASE = TRUNC(CROPBASE1)
  25.      CROPALT1 = ((ALTZ / 60) + 0.5)
  26.      CROPALT = TRUNC(CROPALT1)
  27.    LARGO = CROPBASE
  28.    ALTO = CROPALT
  29.    
  30. GETFILES '"Seleziona la SECONDA immagine"'
  31.  IF RC ~= 0 THEN EXIT
  32.   SECONDA = ADPRO_RESULT
  33.    IF SECONDA = "" THEN EXIT
  34.  LOADER "UNIVERSAL" SECONDA
  35.     XSIZE
  36.      BASE2 = ADPRO_RESULT
  37.     YSIZE
  38.      ALTZ2 = ADPRO_RESULT
  39. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  40.                           ABS_SCALE (BASE) (ALTZ)
  41.                           END
  42. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  43.                           ABS_SCALE (BASE) (ALTZ)
  44.                           END
  45.      SAVER "IFF" TmpIma2 "RAW"
  46.  
  47. GETfile '"Path e nomebase 60 frames elaborati"'
  48. IF RC ~= 0 THEN EXIT
  49. OUTFILE = ADPRO_RESULT
  50. if OUTFILE = "" then exit 
  51.  
  52.    DO i=1 to 60
  53. LOADER "IFF" TmpIma2
  54. OPERATOR "CROP_IMAGE" (LARGO) (ALTO) 0 0
  55.   SAVER "IFF" Cropfile "RAW"
  56. LOADER "IFF" TmpIma
  57.   LOADER "IFF" Cropfile COMPOFFSET 0 0 100 '-1' '-1' '-1'
  58.     LARGO = (LARGO + CROPBASE)
  59.     ALTO = (ALTO + CROPALT)
  60.     
  61.   NUMEROFRAME = (NUMEROFRAME + 1)
  62. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  63.  SFORMAT "IFF"
  64.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  65.    SAY "Salvo il frame Num." NUMERO
  66.     END    
  67.  
  68. ADDRESS COMMAND "Delete >NIL:" TmpIma
  69. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  70. ADDRESS COMMAND "Delete >NIL:" CropFile
  71. EXIT
  72.